home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 4
/
Aminet 4 - November 1994.iso
/
aminet
/
comm
/
net
/
drexxmail.lha
/
InstallDREXXMAIL
< prev
next >
Wrap
Text File
|
1994-10-04
|
3KB
|
87 lines
/* Install script for DREXXMAIL ... AREXX because I understand */
/* AREXX and not C= Installer */
/* This script is for DREXXMAIL Release 3 ! */
/* Last modification - stuff for demon.rexx 9-28-94 */
options results
call addlib("rexxreqtools.library",0,-30,0)
/* Some initializations... */
lf = '0a'x
cr = '0d'x
colon='3a'x
semicol='3b'x
qmark='22'x
fonttag=""
address command
/* Tell em what this does ... */
msg = "This script will install DREXXMAIL 3.00 for you ..."||lf||"Please read the documentation FIRST!"
call rtezrequest(msg,"_Ok, I read it already|_Cancel!","DREXXMAIL Install",fonttag)
if rtresult = 0 then exit
/* Do it ... */
msg = "Please enter the full path where you want the DREXXMAIL scripts."
drmdir = rtgetstring("dnet:drexxmail",msg,"DREXXMAIL Install", , fonttag)
if drmdir = "" then exit
'makedir 'drmdir
'copy #?.rexx 'drmdir 'QUIET'
'copy demon.rexx.info 'drmdir 'QUIET'
msg = "Please enter the full path of the editor you want for news/mail."
drmedit = rtgetstring("sys:tools/memacs",msg,"DREXXMAIL Install", , fonttag)
if drmedit = "" then exit
msg = "Please enter the full path of your mail signature file."
drmsig = rtgetstring("uulib:.signature",msg,"DREXXMAIL Install", , fonttag)
if drmsig = "" then exit
msg = "Please enter your USERNAME (login id) on your UNIX host."
username = rtgetstring("",msg,"DREXXMAIL Install", , fonttag)
if username = "" then exit
msg = "Please enter the path for your UNIX mail directory on your UNIX host."
drmunixdir = rtgetstring("/usr/spool/mail/",msg,"DREXXMAIL Install", , fonttag)
if drmunixdir = "" then exit
msg = "Please enter the path for your LOCAL mail directory."
drmlocaldir = rtgetstring("uumail:",msg,"DREXXMAIL Install", , fonttag)
if drmlocaldir = "" then exit
msg = "Please enter the command you'd like DEMON to use to"||lf||"notify you of new mail."
drmnotify = rtgetstring("rx drexxmail:default_notify.rexx",msg,"DREXXMAIL Install", , fonttag)
if drmnotify = "" then exit
/* Prepare the user-startup add on */
call open .us,"T:drmadd",write
msg = "I am going to append the your settings to S:user-startup."
call writeln .us, semicol||"BEGIN drexxmail"
call writeln .us, "assign drexxmail"||colon drmdir
call writeln .us, "setenv DRMEDITOR "||qmark||drmedit||qmark
call writeln .us, "setenv DRMSIGNATURE "||qmark||drmsig||qmark
call writeln .us, "setenv USERNAME "||qmark||username||qmark
call writeln .us, "setenv DRMUNIXDIR "||qmark||drmunixdir||qmark
call writeln .us, "setenv DRMLOCALDIR "||qmark||drmlocaldir||qmark
call writeln .us, "setenv DRMNOTIFY "||qmark||drmnotify||qmark
call writeln .us, semicol||"END drexxmail"
call close .us
call rtezrequest(msg,"_Ok|_Cancel!","DREXXMAIL Install",fonttag)
if rtresult = 0 then exit
/* Add to user-startup */
'join s:user-startup t:drmadd AS t:user-startup'
'copy t:user-startup s:user-startup QUIET'
msg = "Done"||lf||"You'll be able to use DREXXMAIL on your next reboot..."
call rtezrequest(msg,"_Wow!","DREXXMAIL Install",fonttag)
exit